(defun cp (l) (if (null l) nil (cons (first l) (cp (rest l)))))
(defun concat (l m)
  (if (null l)
	(cp m)
	(cons (first l) (concat (rest l) m))))
(print (concat '(1 2) '(3 4)))
